home *** CD-ROM | disk | FTP | other *** search
/ Hot Metal Pro 4.0 / Hot Metal Pro 4.0.iso / HMPTools / VRCreate / data.z / Click - Pitch 30 Degrees.beh < prev    next >
Encoding:
Text File  |  1997-05-19  |  1.4 KB  |  54 lines
  1. #VRML V2.0 utf8 - PLATINUM technology, inc. 1997
  2. #ADD_TOUCH_SENSOR
  3.  
  4. # Pitch 30 degrees
  5.  
  6. DEF $OBJECT_Spin_30_degrees Script {
  7.     eventIn        SFTime        click
  8.     eventIn        SFBool        timerIsActive
  9.     eventOut    MFRotation    newRotation
  10.     eventOut    SFTime        startTime
  11.     field        MFRotation    calcRotation [1 0 0 0, 1 0 0 0]
  12.     field        SFInt32        counter        0
  13.     field        SFBool        isActive    FALSE
  14.     url"javascript:
  15.         function click(value,ts)
  16.         {
  17.         if (!isActive)
  18.             {
  19.             counter=counter+1;
  20.             if (counter==24)
  21.                 {counter=0;}
  22.              calcRotation[0][3]=calcRotation[1][3];
  23.              calcRotation[1][3]=.524*counter;
  24.              newRotation=calcRotation;
  25.              startTime=ts;
  26.             }
  27.         }
  28.         function timerIsActive(value)
  29.             {
  30.              isActive=value;
  31.             }
  32.     "
  33. }
  34. # Animation path
  35. DEF $OBJECT_Spin_30_degrees_Pitchner OrientationInterpolator {
  36.     key [0 1]
  37.     keyValue[1 0 0 0, 1 0 0 .524]
  38. }
  39. DEF $OBJECT_Spin_30_degrees_Timer TimeSensor {
  40.  cycleInterval .5
  41. }
  42.  
  43. #route map
  44.  
  45. ROUTE $OBJECT_Spin_30_degrees.newRotation TO $OBJECT_Spin_30_degrees_Pitchner.set_keyValue
  46. ROUTE $OBJECTTS.touchTime TO $OBJECT_Spin_30_degrees.click
  47. ROUTE $OBJECT_Spin_30_degrees.startTime TO $OBJECT_Spin_30_degrees_Timer.set_startTime
  48. ROUTE $OBJECT_Spin_30_degrees_Timer.fraction_changed TO $OBJECT_Spin_30_degrees_Pitchner.set_fraction
  49. ROUTE $OBJECT_Spin_30_degrees_Pitchner.value_changed TO $OBJECT.set_rotation
  50. ROUTE $OBJECT_Spin_30_degrees_Timer.isActive TO $OBJECT_Spin_30_degrees.timerIsActive
  51.  
  52.  
  53.  
  54.